***************************************************
****----			Figure 6	  		   ----****
***************************************************

clear all
cap log close 
set more off

****---- Change directory

global data "/Users/Replication material/Data"

****---- Figure 6_1

use "$data/dataset_replication_fig6_1.dta", clear


qui lorenz estimate reddito_completo, over(first_third_tercile)
lorenz graph, overlay xlabel(, grid) graphregion(color(white)) label("1st tercile treatment" "3rd tercile treatment") ytitle("Cumulative income proportion") xtitle("Cumulative percentage population")

****---- Figure 6_2

use "$data/dataset_replication_fig6_2.dta", clear


graph bar fr_dec, over(fraction_income) graphregion(color(white)) ytitle("Fraction of income (difference third-first tercile)")
